home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-06 / segue.exe / NBANNER.PRG < prev    next >
Text File  |  1991-10-28  |  1KB  |  49 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: NBANNER.PRG        Copyright: HRF Associates, Inc.
  4. *   Date Created: 10/28/11           Language: Clipper
  5. *   Time Created: 20:41:21             Author: Bob Fogle
  6. *
  7. *.............................................................................
  8. * Supplemental SEGUE function for specifiying print banner page test.
  9. * Functionally equivilent to N_BANNER function in NETLIB library.
  10. *
  11. FUNCTION NBANNER_
  12. *Purpose : To specify banner page text.
  13. *Usage     : NBANNER_([<expC1>])
  14. *        :
  15. * Where  : <expC1> = Banner text. [1..12]
  16. *        :      Default = no banner.
  17. *        :
  18. PARAMETERS btext
  19. LOCAL mbtext
  20. PRIVATE rtn :=0
  21.  
  22. do while .t.
  23.   * Check to make sure passed variable types are correct.
  24.   if valtype(btext)<>'C' .AND. btext<>nil
  25.     rtn = -101
  26.     exit
  27.   endi
  28.  
  29.   * Set up defaults
  30.   mbtext =  if(valtype(btext)=='C',uppe(alltrim(btext)),nil)
  31.  
  32.   * Get/Set Banner Text
  33.   if mbtext=nil .AND. pcount()=0
  34.     rtn = PRBRNMG()        // Get Banner User Name
  35.   else
  36.     * Print banner page before each document
  37.     rtn = PRBRNMS(mbtext)  // Set Banner User Name
  38.   endi
  39.   exit
  40. endd
  41. RETURN rtn
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.